home *** CD-ROM | disk | FTP | other *** search
/ Canon Creative 3 / Canon Creative 3.iso / webrec / WEBRECD2.DIR / 00327.ls < prev    next >
Encoding:
Text File  |  1996-12-10  |  407 b   |  16 lines
  1. on mouseDown
  2.   global gSoundOn, gSavedAmbientSound, gAmbientSound, gAmbientSoundName
  3.   if clickButton() then
  4.     if gSoundOn then
  5.       set the volume of sound 1 to 0
  6.       set gSavedAmbientSound to gAmbientSoundName
  7.       setAmbientSound(#null)
  8.       set gSoundOn to 0
  9.     else
  10.       set the volume of sound 1 to 255
  11.       set gSoundOn to 1
  12.       setAmbientSound(gAmbientSoundName)
  13.     end if
  14.   end if
  15. end
  16.